%%show ten first lowest
B=size(upper);
m=0;
for i=1:B(1)
    m=i
    Dim(i)
    Coordinates(m,1:10)
upper(m,1:10)
end